dim doc
set doc = Application.ActiveDocument
dim objs,obj
dim ori
set objs = doc.GetObjects(1,, false) 

for each obj in objs
	select case obj.Orientation
		case 0
			ori = 0
		case 180
			ori = 0
		case 360
			ori = 0
		case else
			ori = 90
	end select
	

	'msgbox obj.Orientation
	for each label in obj.labels		
		if label.LabelType = 0 then
			label.Orientation=ori
		end if
	next
next
